home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / SAT / Demo ƒ / SAT Invaders demo ƒ / soundConst.p < prev    next >
Encoding:
Text File  |  1994-11-02  |  1.2 KB  |  44 lines  |  [TEXT/PJMM]
  1. {=================================================}
  2. {============= Sound Constants and handles ==============}
  3. {=================================================}
  4.  
  5. { Example file for Ingemars Sprite Animation Toolkit. }
  6. { © Ingemar Ragnemalm 1992 }
  7. { See doc files for legal terms for using this code. }
  8.  
  9. { This file defines handles for your sound resources. The procedure LoadSounds}
  10. { is called at startup. The sounds could also have been loaded by the appropriate}
  11. { sprite units.}
  12.  
  13. { When designing your game, my advice to you is to use sounds, several sounds,}
  14. { but not ridiculously many and large. A simplistic game that takes 1000k on disk}
  15. { just because it contains lots of sounds is just a waste of disk (and we have seen}
  16. { far too many of them on the shareware market), but a well-polished, complex}
  17. { and interesting game can and should use more. }
  18.  
  19. unit SoundConst;
  20.  
  21. interface
  22.  
  23.     uses
  24. {$IFC UNDEFINED THINK_PASCAL}
  25.     Types,
  26. {$ENDC}
  27.         SAT;
  28.  
  29.     var
  30.         toffH, dunkH, piuH, kraschH: handle;
  31.  
  32.     procedure LoadSounds;
  33.  
  34. implementation
  35.  
  36.     procedure LoadSounds;
  37.     begin
  38.         toffH := SATGetNamedSound('toff');
  39.         dunkH := SATGetNamedSound('Dunk');
  40.         piuH := SATGetNamedSound('piu');
  41.         kraschH := SATGetNamedSound('Krasch 1');
  42.     end;
  43.  
  44. end.